(defun in-match(s  l file)
	(let ((fpin (open file :if-does-not-exist nil))
	      (fpout (open "default.temp" :direction :output :if-does-not-exist :create :if-exists :overwrite))
	      (ll 0))
		(when fpin 
			(loop for *s-exp* = (read fpin nil)
				while *s-exp* do
					(inset-match l fpout
					)
			)
			(progn (close fpin)(close fpout) (shell "mv default.temp default.lisp"))
		)
	)
)
	
(defun insert-match (l fpout) 
	(let ((n-exp (copy-tree *s-exp*))
	      (m-str (car l))
 	      (loc (nth 1 l))
	      (type (nth 2 l)))
		()))